50 GOSUB60000:PRINTCHR$(142) 100 PRINT"[147]":POKE53280,0:POKE53281,14 101 PRINT"[144] TYPE YOUR FIRST NAME" 102 INPUT" THEN PRESS ";N$ 103 PRINT"[147][144]":PRINTTAB(9)"";N$;", DO YOU WANT TO" 104 PRINT" ADD, SUBTRACT, MULTIPLY, OR DIVIDE.":PN=0:NR=0:NW=0:GR=0:A=(-TI) 105 PRINT"[144] [146]" 106 PRINT" [150] [146] 107 [153]" DEF STOP A  PRESS FOR ADDITION DEF WAIT" 108 A$[178]" DEF WAIT":[153]A$ 109 [153]" DEF STOP S  PRESS FOR SUBTRACTION DEF WAIT" 110 [153]A$ 111 [153]" DEF STOP M  PRESS FOR MULTIPLICATION DEF WAIT" 112 [153]A$ 113 [153]" DEF STOP D  PRESS FOR DIVISION DEF WAIT":[153]A$ 114 [153]" DEF STOP Q  PRESS TO EXIT DEF WAIT" 115 [153]" DEF WAIT 116 GET AN$:IF AN$="" THEN 116 117 IF AN$="Q" THEN GOTO 63000 118 IF AN$="A" THEN GOTO 125 119 IF AN$="S" THEN GOTO 126 120 IF AN$="M" THEN GOTO 127 121 IF AN$="D" THEN GOTO 128 122 GOTO 116 125 AS$="+":GOSUB3000:GOTO197 126 AS$="-":GOSUB3000:GOTO197 127 AS$="X":GOSUB3000:GOTO197 128 AS$="%":GOSUB3000:GOTO197 130 GOSUB 3400:GOTO197 132 GOSUB 3042 197 PRINT"[147]":POKE53280,0:POKE53281,14 198 PRINTTAB(5)"[144]PRESS [158] Q [146] [144]TO CHANGE OPERATIONS" 199 PRINT"[144] [146]"; 200 PRINTTAB(50)"[144][181]";TAB(60)"[144][181]";TAB(70)"[144][181]" 201 PRINTTAB(1)"PROBLEM";TAB(12)"NUMBER";TAB(22);"NUMBER";TAB(32)"YOUR" 202 PRINTTAB(1)"NUMBER";TAB(12)"RIGHT";TAB(22);"WRONG";TAB(32)"SCORE" 203 PRINTTAB(3)"[158]";PN;TAB(13)NR;TAB(24);NW;TAB(32)GR 204 PRINT"[144] [146][145][145][145][145][145][145]"; 206 FORY=1TO5:PRINTTAB(10)"[144][181]";TAB(20)"[144][181]";TAB(30)"[144][181]":NEXT Y 212 PRINTTAB(10)" [146]":PN=PN+1 213 PRINTTAB(10)" [150]  [146]" 214 PRINTTAB(10)" [150]  [146]" 215 PRINTTAB(10)" [150]  [146]" 220 PRINTTAB(10)" [146]" 225 IF AN$="A" OR AN$="M" THEN GOTO231 230 PRINTTAB(15)"[145][145][145][144]";A2;"[157] ";AS$;B1;"[157] ":GOTO235 231 PRINTTAB(15)"[145][145][145][144]";B1;"[157] ";AS$;A2;"[157] " 235 INPUT" ";C$:C2=VAL(C$) 237 IF C$="Q" THEN GOTO 103 240 IF C2=D THEN GOSUB 2200 245 IF C2<>D THEN GOSUB 2100 247 GR=INT((NR/(NR+NW))*100) 250 IF Y$="Q" THEN GOTO 130 255 GOTO 132 2099 GOTO2199: REM GO TO THE END OF PROGRAM 2100 PRINT"[147]":POKE53281,0:POKE53280,0 2130 PRINTTAB(4)"[145][169] [223][146]" 2131 PRINTTAB(3)"[169] [223][146]" 2132 PRINTTAB(2)"[169] [146][169] [223] [223][146]" 2133 PRINTTAB(2)" [146][169] [223] [146]" 2134 PRINTTAB(2)" [146][169] [162][162][162][162] [162][162][162][162] [223] [146]" 2136 PRINTTAB(2)"[169]  [175][175][175][175] [175][175][175][175] [223]" 2138 PRINTTAB(2)"[180] [180][149][213][201][170] [180] [170] [180][149][213][201][170] [170]" 2140 PRINTTAB(0)"[213][192][180] [180][149][202][203][170] [180] [170] [180][149][202][203][170] [170][192][201]" 2142 PRINTTAB(0)"[221] [180] [183][183][183][183] [180] [170] [183][183][183][183] [170] [221]" 2144 PRINTTAB(0)"[221] [180] [205] [180] [170] [206] [170] [221]" 2146 PRINTTAB(0)"[221] [180] [170] [206] [205] [180] [170] [221]" 2148 PRINTTAB(0)"[202][192][180] [170] [180] [170] [180] [170][192][203]" 2150 PRINTTAB(2)"[205] [163][163][163][163][163] [206]" 2152 PRINTTAB(3)"[205] [206] ";N$ 2154 PRINTTAB(4)"[205] [150][206][184][184][184][205] [206] I AM SORRY" 2156 PRINTTAB(5)"[205] [150][184][184][184][184][184] [206] BUT " 2158 PRINTTAB(6)"[202][192][192] [192][192][203] " 2159 IF AN$="A" OR AN$="M" THEN GOTO 2161 2160 PRINTTAB(6)" [205][175][175][175][175][175][206] ";A2;AS$;B1;"IS NOT ";C$;"":GOTO 2162 2161 PRINTTAB(6)" [205][175][175][175][175][175][206] ";B1;AS$;A2;"IS NOT ";C$;"" 2162 NW=NW+1 2165 GOSUB 4000 2190 GOSUB 9000 2191 N2=N2+1:IF N2>16 THEN N2=0 2192 RETURN 2199 LOAD"HELLO CONNECT",8 2200 PRINT"[147]":POKE53280,N1:POKE53281,0 2210 X=INT(6*RND(0)+1) 2211 IF X = 1 THEN GOTO 2221 2212 IF X = 2 THEN GOTO 2222 2213 IF X = 3 THEN GOTO 2223 2214 IF X = 4 THEN GOTO 2224 2215 IF X = 5 THEN GOTO 2225 2216 IF X = 6 THEN GOTO 2226 2221 PRINTTAB(14)"GREAT, ";N$:GOTO2230 2222 PRINTTAB(12)"GOOD WORK, ";N$:GOTO2230 2223 PRINTTAB(13)"CORRECT, ";N$:GOTO2230 2224 PRINTTAB(10)N$;", YOU ARE SMART":GOTO2230 2225 PRINTTAB(4)N$;", YOU'RE READY TO GRADUATE.":GOTO2230 2226 PRINTTAB(10)N$;", YOU'RE GOOD":GOTO2230 2230 PRINTTAB(12)"[158][169] [223][146]" 2231 PRINTTAB(11)"[158][169] [223][146]" 2232 PRINTTAB(10)"[158][169] [146][169] [223] [223][146]" 2233 PRINTTAB(9)"[158][169] [146][169] [223] [223][146]" 2234 PRINTTAB(9)"[158] [146][169] [162][162][162][162] [162][162][162][162] [223] [146]" 2236 PRINTTAB(9)"[158] [146][169]  [175][175][175][175] [175][175][175][175] [158][223] [146]" 2238 PRINTTAB(9)"[158] [146] [180][154][213][201][170] [180] [170] [180][154][213][201][170] [158]  [146]" 2240 PRINTTAB(8)"[213][192][180] [180][154][202][203][170] [180] [170] [180][154][202][203][170] [170][192][201]" 2242 PRINTTAB(8)"[221] [180] [183][183][183][183] [180] [170] [183][183][183][183] [170] [221]" 2244 PRINTTAB(8)"[221] [180] [205] [180] [170] [206] [170] [221]" 2246 PRINTTAB(8)"[221] [180] [170] [206] [205] [180] [170] [221]" 2248 PRINTTAB(8)"[202][192][180] [170] [180] [170] [180] [170][192][203]" 2250 PRINTTAB(10)"[205] [206] [184][184][184][184][184] [205] [206]" 2252 PRINTTAB(11)"[205] [150][185][185][185][185][185][185][185] [206]" 2254 PRINTTAB(12)"[205] [150][205] [206] [206]" 2256 PRINTTAB(13)"[205] [150][183][183][183][183][183] [206]" 2258 PRINTTAB(14)"[202][192][192] [192][192][203] 2260 [153][163]14)" (null)ANDANDANDANDAND(null)":NR[178]NR[170]1 2290 [129]Y[178]1[164]1000:[130]Y 2291 N1[178]N1[170]1:[139] N1[177]15 [167] N1[178]0: 2292 [142] 3000 [153]"LOAD":[151]53280,0:[151]53281,0 3001 [139] AN$[178]"A" [167] NB$[178]"ADDITION OF" 3002 [139] AN$[178]"S" [167] NB$[178]"SUBTRACTION OF" 3003 [139] AN$[178]"M" [167] NB$[178]"MULTIPLY BY" 3004 [139] AN$[178]"D" [167] NB$[178]"DIVISION BY" 3010 [153]"LOAD PLEASE CHOOSE WHICH WORK YOU WANT" 3015 [139] AN$[178]"D" [167] [137] 3020 3016 [153]" SYS W WAITOPEN ALL DIGITS -- ZERO THROUGH NINE" 3017 [153][163]7)" DEF 0 WAIT ";NB$;" ZERO":[137] 3025 3020 [153]" SYS W WAITOPEN ALL DIGITS -- ONE THROUGH NINE" 3025 [153][163]7)" DEF 1 WAIT ";NB$;" ONE" 3026 [153][163]7)" DEF 2 WAIT ";NB$;" TWO" 3027 [153][163]7)" DEF 3 WAIT ";NB$;" THREE" 3028 [153][163]7)" DEF 4 WAIT ";NB$;" FOUR" 3029 [153][163]7)" DEF 5 WAIT ";NB$;" FIVE" 3030 [153][163]7)" DEF 6 WAIT ";NB$;" SIX" 3031 [153][163]7)" DEF 7 WAIT ";NB$;" SEVEN" 3032 [153][163]7)" DEF 8 WAIT ";NB$;" EIGHT" 3033 [153][163]7)" DEF 9 WAIT ";NB$;" NINE" 3040 [161] H$:[139] H$[178]"" [167] 3040 3042 [139] H$[178]"W" [167] [137] 3400 3044 H[178][197](H$) 3045 [139] H$[179]"0" [176] H$[177]"9" [167] 3040 3048 A1[178][181](10[172][187](0)):B1[178]H: 3050 [139] AN$[178]"A" [167] A2[178]A1 3052 [139] AN$[178]"S" [167] A2[178]A1[170]H: 3054 [139] AN$[178]"M" [167] A2[178]A1 3056 [139] AN$[178]"D" [167] A2[178]A1[172]H 3058 [139] AN$[178]"A" [167] D[178]A2[170]H 3060 [139] AN$[178]"S" [167] D[178]A1 3062 [139] AN$[178]"M" [167] D[178]A2[172]H 3064 [139] AN$[178]"D" [167] D[178]A1 3066 [142] 3400 A1[178][181](10[172][187](0)) 3401 [139] AN$[178]"D" [167] [137] 3403 3402 B1[178][181](10[172][187](0)):[137] 3405 3403 B1[178][181](9[172][187](0)[170]1) 3405 [139] AN$[178]"A" [167] A2[178]A1 3406 [139] AN$[178]"M" [167] A2[178]A1 3407 [139] AN$[178]"S" [167] A2[178](A1[170]B1) 3408 [139] AN$[178]"D" [167] A2[178](A1[172]B1) 3409 [139] AN$[178]"A" [167] D[178]A2[170]B1 3410 [139] AN$[178]"M" [167] D[178]A2[172]B1 3411 [139] AN$[178]"S" [167] D[178]A1 3412 [139] AN$[178]"D" [167] D[178]A1 3413 [142] 4000 [139] AN$[178]"D" [176] AN$[178]"S" [167] [137] 4060 4005 B1$[178][201]([196](B1),1) 4010 [139] AN$[178]"A" [167] AM$[178]" PLUS " 4011 [139] AN$[178]"M" [167] AM$[178]" TIMES" 4019 [151]1794[170](A2[172]3),86:[151]56066[170](A2[172]3),13 4020 [153]"(null)USRUSRUSRUSRUSRUSRUSR(null)SYSUSRUSR(null)USRUSR(null)USRUSR(null)USRUSR(null)USRUSR(null)USRUSR(null)USRUSR(null)USRUSR(null)USRUSR(null)USRUSR(null)" 4021 [153]"SGN";B1$[170]AM$;"+SYS 0+ 1+ 2+ 3+ 4+ 5+ 6+ 7+ 8+ 9+" 4022 [153]"(null)ANDANDANDANDANDANDANDSQRSYSANDANDSQRANDANDSQRANDANDSQRANDANDSQRANDANDSQRANDANDSQRANDANDSQRANDANDSQRANDANDSQRANDANDSQR":K[178]B1 4023 [139] AN$[178]"M" [167] [137] 4030 4024 [153][163]0)"DEFSGN GIVES +ON":[141]8000:[142] 4030 [153][163]0)"DEFSGN GIVES +ON":[141]8100:[142] 4060 [139] AN$[178]"S" [167] AM$[178]" FROM " 4061 [139] AN$[178]"D" [167] AM$[178]" INTO " 4064 [151]1794[170](D[172]3),86:[151]56066[170](D[172]3),13 4065 K[178]B1:B1$[178][196](B1):[139] AN$[178]"D" [167] [137] 4073 4066 [153]"";B1$[170]AM$;"+DEFON":[141]8000:[137]4090 4073 [153]"";B1$[170]AM$;"+DEFON":[141]8100 4090 [153]"USRUSRUSRUSRUSRUSRUSRUSR(null)SYSUSRUSR(null)USRUSR(null)USRUSR(null)USRUSR(null)USRUSR(null)USRUSR(null)USRUSR(null)USRUSR(null)USRUSR(null)USRUSR(null)":K[178]6:AM$[178]"S":B1$[178]"4" 4091 [153]"SYS GIVES + 0+ 1+ 2+ 3+ 4+ 5+ 6+ 7+ 8+ 9+" 4092 [153]"ANDANDANDANDANDANDANDANDSQRSYSANDANDSQRANDANDSQRANDANDSQRANDANDSQRANDANDSQRANDANDSQRANDANDSQRANDANDSQRANDANDSQRANDANDSQR" 4093 [142] 8000 [153][163]9)""[201]([196](0[170]K),2);"+";[163]12)[201]([196](1[170]K),2);"+"; 8001 [153][163]15)[201]([196](2[170]K),2);"+";[163]18)[201]([196](3[170]K),2);"+"; 8002 [153][163]21)[201]([196](4[170]K),2);"+";[163]24)[201]([196](5[170]K),2);"+"; 8003 [153][163]27)[201]([196](6[170]K),2);"+";[163]30)[201]([196](7[170]K),2);"+"; 8004 [153][163]33)[201]([196](8[170]K),2);"+";[163]36)[201]([196](9[170]K),2);"+":[142] 8100 [153][163]9)"";[201]([196](0[172]K),2);"+";[163]12)[201]([196](1[172]K),2);"+"; 8101 [153][163]15)[201]([196](2[172]K),2);"+";[163]18)[201]([196](3[172]K),2);"+"; 8102 [153][163]21)[201]([196](4[172]K),2);"+";[163]24)[201]([196](5[172]K),2);"+"; 8103 [153][163]27)[201]([196](6[172]K),2);"+";[163]30)[201]([196](7[172]K),2);"+"; 8104 [153][163]33)[201]([196](8[172]K),2);"+";[163]36)[201]([196](9[172]K),2);"+":[142] 9000 S[178]54272 9010 [151] S[170]5,19:[151] S[170]6,240:[151]S[170]19,53:[151]S[170]20,53:[151]S[170]24,15:[129]XX[178]1[164]24 9020 [135] HF,LF,DR:[151]S[170]1,HF:[151]S,LF:[151]S[170]4,17 9030 [129] I[178]1 [164] DR:[130]:[151]S[170]4,16:[129]T[178]1[164]24:[130]:[130]XX 9040 [131] 25,30,375,25,30,125,33,135,1500,25,30,375,33,135,125,42,62,1500 9050 [131]25,30,250,33,135,250,42,62,1000,25,30,250,33,135,250,42,62,500 9060 [131]25,30,250,33,135,250,42,62,1000,33,135,375,42,62,125,50,60,500 9070 [131]42,62,500,33,135,500,25,30,1500,25,30,375,25,30,125,33,135,1500,0 9080 [140]:[142] 60000 [143] TITLE SCREEN 60005 [151]53280,0:[151]53281,14:[153]"STOP"[199](8) 60010 [153]"LOAD (null) ATN (null) LEFT$ ASC ATN LEN (null) (null)" 60020 [153]""[166]8)"(null)RITTEN BY (null)ICKY PEEKREWER" 60030 [153]" (null)(null)ATNSTR$(null)(null)ATN(null) IS NOT PUBLIC DOMAIN." 60032 [153]" (null)LEASE RESPECT THE AUTHOR'S RIGHTS." 60040 [129]DL[178]1[164]2000:[130]DL:[142] 63000 [143] RETURN TO LOADSTAR 63010 [147]"HELLO CONNECT",8